Description: Display run time error and quit
Mapped Command:
FUNCTION __RunTimeError(error,label,procname)
   procname := if(procname == NIL,"Unknown Proc",procname)
   settext()
   clear screen
   do case
   case error == NoMouseDriver
      ? procname + ": No mouse driver present: " + label + "!"
   endcase
   quit
RETURN(Void)